home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / objectex / ex4.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  536 b   |  25 lines
  1. Program ex4;
  2.  
  3. { Program to demonstrate TRect.Intersect }
  4.  
  5. Uses objects;
  6.  
  7.  
  8. Var ARect,BRect,CRect : TRect;
  9.     
  10. begin
  11.   ARect.Assign(10,10,20,20);
  12.   BRect.Assign(15,15,25,25);
  13.   { CRect is intersection of ARect and BRect }
  14.   CRect.Assign(15,15,20,20);
  15.   { Calculate it explicitly}
  16.   ARect.Intersect(BRect);
  17.   If ARect.Equals(CRect) Then
  18.     Writeln ('ARect equals CRect')
  19.   Else
  20.     Writeln ('ARect does not equal CRect !');
  21.   BRect.Assign(25,25,30,30);
  22.   Arect.Intersect(BRect);
  23.   If ARect.Empty Then
  24.     Writeln ('ARect is empty');
  25. end.